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“SEP MACRO. SRCJARGSCN.MAR; 1 

00 -TITLE BACSARGSCN SCAN MACRO REAL/KEYWORD ARGS 

88 -IDENT '‘Vv04-000' 

$00 

48 ITIITITIIITIIIT ITIL TIL IIT ITLL LiL 

7* 

0000 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 

Bone :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

8808 " ALL RIGHTS RESERVED. 

0000 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
8008 7* ONLY IN ACCORDANCE WITH THE S U LICENSE AND WITH 

00 * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY 

0000 7* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
0000 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
Ba } TRANSFERRED. 

0000 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0000 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
44 :* CORPORATION. 

0000 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
4444 ee SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 

0000 | ponsaneseddenbedosnecurnenonsauenssnenbibaneeneneosnenennennnanenebernete 
0000 ; 
0000 +e 


VAX MACRO ASSEMBLER OBJECT LIBRARY 


The VAX-11 MACRO assembler trarslates MACRO-32 source code into object 
modules for input to the VAX-1! LINKER. 
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AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
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Count null argument after t brething conne for .NARG directive. 


(DEFINE.MAR 02.18, GETARG.MAR 02 


RNOO023 R. Newland 3-Nov-1979 
New error codes to get error message from system 
message file. 


RNOO18 R. Newland 20-0c t-1979 
Convert argument to upper case if UPMARG set. 
RNOO12 land 26-Sep-1979 


Fix problem wien” an ae bracket aedenebing of .IRPC 
string argument. SPR 11- 
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y0s-006 1B eer] abG 09:49:35 PAACKO sh eSaRchon star: 1 aoe 4) | 
8 : v01.04 RNO006 R. Newland 28-Aug-1979 

3 Fix probl gr with Lent tans ten Lines on macro calls 

oy : SPR | 

0 6¢ F v01.03 RNOOOS ewland 13-Aug-1979 

000 65 ; Remove .ALIGN LONg and DEBUG statements and use 

000 64 ; symbolic value for maximum argument size 

0000 65 ; 

0000 
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MACSARGSCN SCAN MACRO R 
V04= DECLARATIONS =SEP=1984 01:4 MACRO. SRC JARGSCN.MAR; 1 | 
68 ~SBTTL DECLARATIONS 
29 ; INCLUDE FILES: 
72° 
i | 
74 ; MACROS: | 
75 ; 
00 4 
444 ? SRAC_GEWVALDEF ; DEFINE GENERAL VALUES 
000 78 SMAC_MNBDEF ;DEFINE MNB OF Fser $ | 
9008 79 SMAC~CTLFLGDEF : DEFINE CONTROL 
000 80 SMAC™3YMBLKDEF DEFINE SYMBOL BLOCK OFFSETS 
0000 81 SMACASGDEF : Define message codes 
0000 Hf ; 
0000 83 ; LOCAL DATA@ 
0000 He : 
0000 5 
00000000 Hi -PSECT MACS$RO_DATA,NOWRT ,NOEXE ,GBL LONG 
0000 $88 MACSAB_SPLARGS: ;SPECIAL MACRO ARG CHARACTERS 
C 5¢ 0000 89 BY *AIN\/ *A/</ ,AA/4/ 
00000003 9003 30 MACSK_SPLARG=.-MACS$AB_SPLARGS 
00000000 3=s_«92 -PSECT MAC$RO_CODE_MAC,NOWRT,GBL,LONG 
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N MACRO REYWORD/REAL | $-SEP=19 
.SBTTL MACSMAC_ARG_SCN SCAN MACRO KEYWORD/REAL ARGS 


"SrSEP=19B6 01:49:25 EMACHO.SRCSARGSCN-MAR: 1 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SCANS A_ ‘REAL ARGUMENT AND ACCUMULATES IT IN 
MACSAB_TMPBUF. THE ROUTINE OPERATES AS FOLLOWS: 


) SKIP SPACES | 
A IF ARRIVE AT COMMA OR EOL RETURN NULL ARGUMENT 
) IF ALPHABETIC CHARACTER AND KEYWORD ARGUMENTS PRESENT 
5 4), SEE IF POSSIBLY KEYWORD AR F 
1S A KEYWORD ARG STORE THE MAB ADDRESS IN MAC$GL TKEYPTR 


EQUAL $ 
4) CHECK FOR SPECIAL CHARACTERS: 
A) *\"' = THE VALUE +4 THE SYMBOL FOLLOWING THE 
BACKSLASH "7 SUBSTITUTED. IF THE SYMBOL IS 
UNDEFINED, A VALUE OF 0 IS SUBSTITUTED. 
B) *<*' = THE STRING WITHIN THE MATCHED PAIR OF 
ANGLE BRACKETS IS STORED. THE OUTER PAIR OF 
ANGLE BRACKETS IS NOT STORED. 


C) '*"" = THE CHARACTER FOLLOWING THE ‘*’' IS T 


~~ 
m 
~ 
wo 
~< 
wn 
—_ 
> 
—~ 
~ 


AKEN 
AS THE DELIMITER. THE STRING WITHIN THE DELIMITERS 


IS STORED. 


5) IF THERE IS NO SPECIAL CHARACTER THE STRING IS COPIED 
rig hee COMMA, EOL, OR RIGHT ANGLE BRACKET (IRP ONLY) 


LENGTH OF ARGUMENT STORED IN MACSAB_TMPBUF 


#*°M<R6,R7,RB,R12> ;SAVE REGISTERS 
W*MACSGL_KEYPTR ;ASSUME NOT KEYWORD ARGUMENT 
W*MACSAB_TMPBUF ,R8 [POINT TO TEMP BUF 
#ARGSK_STZE,R12 ; Set up te temp buffer counter 
MACSSKTPSP :SKIP S$ 

10,@CR A: ;GET TO COL? 

/ IF EQL YES 

R10, 4*A/,/ :NO--STOP ON A COMMA? 
#FLGSV_IFSTAT,(R11),20$ i VES~=BRANCH IF IN AN IF 
MACSGETCHR NO--SKIP THE COMMA 
RACSSKIPSP AN D SPACE 

ARG_FOLLOWS ; Note tra ne comma at exit. 
ARG_ SCAN _DONE :GO0 FINISH 


PICK UP FORMAL ARG NAME IF KEYWORD MACRO DEFINITION OR MACRO CALL. 
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H 11 
AL/KEYWORD ARGS 19-SEP-1984 02: 03: 40 VAX/VMS Macro V04-00 
CN SCAN MACRO KEYWORD/REAL SEP=1984 :25 CMACRO.SRCJARGSCN.MAR; 1 
‘ ; OTHERWISE TREAT AS POSITIONAL ARGUMENT. 
$0$: BBC #CHRSY SYM_CHR NIT BEA SYMBOL? 

4 C$AB_CASK faB(R10), 7s" BRANCH IF 

55 MOVL yd ty “KEYMAC,R5 YES=-GET PTR "0 KEYWORD ARGS 
36 BEQL  70$ TF EQL eo KEYWORD 

3 PUSHL R10 ;SAVE INPUT CONTEXT. 

8 PUSHL W*MACSGL_LINEPT a 

§ CLRB. oe ‘ASSUME NO CONTINUATION LINES 
60 BBCC #FLG$V_CONT,(R11),40$ CLEAR FLAG D SEE ult IT WAS SET 
61 INCB = (SP) IT WAS~-REMEMBER 

6¢ 40$:  BSBW  MACSSYMSCNUP ‘SCAN A SYMBOL 
6 BSBW  MACS$SRC_LIST i LOOK IT UP AMONG THE KEYWORDS 
64 BSBW MACSSKIPSP 3 Ski abot ces after name 
5 TSTB 3s (SP) + :CHECK 0 D¢ FLAG 
66 BEQL 508 ‘BRANCH I  EPEAR 
67 BBCS §§ #FLGSV_CONT,(R11),.+1 ELSE SET IT AGAIN 
68 50$:  MOova R COPY ELAG/ ADDRESS 
69 BSBW  MACSSKIPSP [SKIP SPACES 

70 BLBC ‘BRANCH IF KEYWORD NOT FOUND 
71 CMPB ea R10, #*A/=/ i: KEYWORD=-FOLLOWED BY EQUAL SIGN? 
es BNEQ Os SIF NEQ NO 

7 ADDL2 #284. S SYES--THROW AWAY SAVED CONTEXT 
74 MOVL R6,W RACSGL _KEYPTR i REMEMBER KEYWORD ADDRESS 

75 BSBW  MACS$GETCHR 'GET NEXT CHARACTER 

76 BSBW  MACSSKIPSP ‘SKIP SPACES 

77 BRB 70$ 
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MACRO.SRCJARGSCN.MAR; 1 


sRESTORE SAVED CONTEXT 


R10, #MACS$K_SPLARG, eM STE NEG WE pare IF SPECIAL 


sNOT SPECIAL--GO PICK UP ARG 
:COMPUTE I 
EPA SPATCM TO ROUTINE 


4 canes 


KEYWORD ARGS Ig-SeP 
SCAN MACRO KEYWORD/REAL 5=SEP=1984 
: NOT A KEYWORD OR NO EQUAL SIGN FOLLOWING IT 
b0s: POPL W*MACSGL_LINEPT 
POPL R10 
LOOK FOR SPECIAL CHARACTERS THAT CAN START MACRO ARGS 
+08: LOCC 
BNEQ 90$ 
B08: BRW 500$ 
$: SUBL3 aMAC AB_SP ARGS R1,RO 
CASEB RO,#0,#MAC$K SPLARG-1 
100$:  <WORD 2008-100 $ 
;WORD  300$-100$ 
“WORD  400$-100$ 
BRW 500$ 


CHA 
a 


230$: 


‘THIS REALLY SHOULD NOT BE HAPPENING... 


;BUT JUST TREAT AS NON-SPECIAL 


PROCESS SPECIAL CHARACTERS IN MACRO ARGUMENTS 


RACTER IS A BACKSLASH. THE VALUE OF THE SYMBOL FOLLOWING THE 
KSLASH I$ SUBSTITUTED. IF THE SYMBOL IS NOT DEFINED A VALUE 
F 0 IS SUBSTITUTED. 

BSBW MACSGETCHR sSKIP THE BACKSLASH 

BSBW  MACSSYMSCNUP ‘SCAN THE SYMBOL 

BLBC si ‘BRANCH IF NO SYMBOL FOUND 

BSBW  MACSSRCUSRSYMTB iL OK T uP 

BLBS oR ANCH IF FOUND 

MOVAB W*°MACS$GK ZERO-SYMSL _VAL, af” -ELSE FAKE A ZERO 

MOVL SYM$L_VAC(R1),RO “3get THE VALUE 

BGEQ RANCH if was 0 

MOVB #*A/=/,(RB)+ SNEGATIVE--EMIT A SIGN 

MNEGL RO,RO [GET POSITIVE VA 

MOVL R8,R1 ‘SET POINTER FOR DECOUT 

BSBW MACSDEC_OUT_L2x SEMIT THE VALUE (DECIMAL) 

MOVL _—RO,RB :GET UPDATED POINTER 

BRW 606$ ‘FINISH UP 


J11 
MACSARGSCN SCAN MACRO REAL/KEYWORD ARGS -SEP=19 :0 AX/VMS Macro V04-00 Pa 
v04-000 MACSMAC_ARG_SCN SCAN MACRO KEYWORD/REAL Base 84: 96: 39 YRACRO. SRe ARGSCN.MAR; 1 - 
CD 0; 
CD 1 : CHARACTER IS LEFT ANGLE uBRACKET. THE STRING WITHIN THE ANGLE BRACKETS 
cD é : IS COPIED INTO MACSAB_TMPBUF 
68 91 c8 00CD 4 $00$: BISL2 #FLGSM_ALLCHR, (R11) :PASS SEMI COLONS 
5 bs, D 5 CLRL = RS SNESTING LEVEL COUNTER STARTS AT 0 
FF2B" 9 D é 310$: BSBW  MACSGETCHR 'GET THE NEXT CHARACTER 
3¢ D D DECL = RI ‘ROOM TO STORE IT? 
g 19 00D 8 BLSS 315% :1F LSS NO 
88 SA 90 00D9 MOVB R10, (RB)¢ ‘STORE IT 
3c) OSA O91Ss«ODC 0 315$: CMPB R10.#*A/</ ‘ANOTHER LEFT ANGLE BRACKET? 
04 12 ODF 1 BNEQ 208 :1F NEQ NO 
5 D6 00E1 : INCL R SYES--UP THE NESTING LEVEL 
gD 11 OE BRB 3108 :KONT INUE SKANNING 
3E «SA O91sCOOOE 4 3208: CMPB R10,#*A/>/ [RIGHT ANGLE BRACKET? 
07 12 OOEB 5 NEQ 330§ SIF NEQ 
65 55 4 OOEA : SOBGEQ R5,310$ : YES==DECREMENT NESTING LEVEL AND 
OED 'GO FOR NEXT CHAR IF NOT 
58 D7 OOED 38 DECL Rg SDONE=-DON'T STORE FINAL ot 
2B 11 = OOEF 9 BRB 420$ 60, FINISH UP 
OD SA 91 OOF1 240 330$: CMPB  R10,ACR 3 END OF LINE? 
dC «(12 OOF 41 BNEQ 310$ [IF NEQ NO-=KEEF SKANNING 
24 «11 00F6 4¢ BRB 420$ S YES==F INISH 
OOF8 244 : CHARACTER IS UP-ARROW. THE CHARACTER FOLLOWING THE UP-ARROW IS TAKEN 
OOF8 245 : AS THE DELIMITER. THE STRING WITHIN THE DELIMITERS IS COPIED INTO 
OF 8 4g : + MACSAB_TMPBUF . 
FFOS’ 30 OOF8 548 400$: BSBW  MACSGETCHR :GET THE DELIMITER 
0D SA 91 OOFB 349 CMPB  —s- R10,,#CR :1$ IT EOL? 
4 13 OOFE 250 BEQL © 4408 :1F EQL OOPS! 
55 5A DO 9190 51 MOVL. R10,R5 'SAVE THE DELIMITER 
68 O01 C8 010 3 BISL2 #FLGSM_ALLCHR, (R11) SAND PASS SEMI COLONS 
FEF7" 30 0106 53 410$: BSBW  MACSGETCHR 'GET A CHARACT 
55 SA 91 0109 254 CMPB  —s- R10,, R'5 [1S 1T THE DELIMITER? 
0 13 010¢ 255 BEQL 4208 SIF EQL YES 
0D SA 91 O10E 256 CMPB  =—s- R10, #CR 3END OF LINE? 
09 13 0111 57 BEQL 48-4208 [IF EQL YES (OOPS) 
SC 4D? «420113 «(258 DECL = R1 :NO=-HAVE WE OVERF LOWED BUFFER? 
F 19 0115 259 BLSS 4108 TIF LSS YES=-D0 N NOT STORE 
88 SA 90 0117 260 MOVB R10, (RB) + ‘NO==STORE THE CHA 
EA 11 1A 61 BRB 410$ ‘LOOP FOR MORE 
O11¢ $6 : FINISH UP PROCESSING. RESET LOWER CASE LIMIT, AND CHECK FOR PROPER 
Brie rt: : END OF LINE. 
68 01 CA O11C 66 4208: BICL2 FL GSH ALLCHR, (R11) ;D0 NOT PASS SEMI COLONS 
OD SA 91 O11F 267 4308:  CMPB :DID WE END WITH EOL? 
OA 12 0122 68 BNEQ 450 31F NEQ NO==0k 
124 6 440$: $MAC_ERR UNTERMARG : Yes--that is an err 
FED4* 30 0129 0 BSBW”  MACSERRORLN ; ISSUE MESSAGE TO PASS 2 
3c) 0611 «012¢~—s 371 BRB 6 ; INISH UP 
FECF® 30 O12E ce 450$:  BSBW MACSGETCHR [GET THE NEXT CHARACTER 
37,11 1 3 BRB 600$ :FINISH UP 
1 25 i NOTHING SPECIAL=-MUST BE SYMBOLIC ARGUMENT. COPY STRING UNTIL 
1 76 : A COMMA, END OF LINE OR RIGHT ANGLE BRACKET (IRP ONLY) IS FOUND. 
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MACSARGSCN SCAN MACRO REAL/KEYWORD ARGS 16-SEP-1984 02:0 AX/VMS Macro V04-00 Page 
4052008 MACSMAC_ARG_SCN SCAN MACRO KEYWORD/REAL ety Pi 84: 06: $8 YRACRO SRE ARGSCN.MAR; 1 ° &) 
1 77; 
5c (7? COO £8 §00$:  od€CL R12 ;ROOM TO STORE THE CHARACTER? 
OA 19 01 7 BLSS 505$ 
03 68 § 4 1 0 BBC #FLGSV ees. (R11), 5028’: Branch if not to convert to upper case 
FEC2' 30 : 1 5028 BSBW MACSCVT_L 3 Convert possible lower case to upper 
88 SA 9 1 : 5 MOVB = R10, (RB) + ;COPY THE CHARACTER 
FERC’ 14 4 505$: BSBW MA SGETCHR :GET A CHARACTER 
3 SA O91 (0144 5 CMPB RT SRIGHT ANGLE BRACKET? 
08 le 147 6 BNEQ 51 4" :1F NEQ NO 
04668 iC € 149 BBC #FLGSV_RPTIRP,(R11),510$ ; Branch if not «REPT, .IRP or .IRPC 
19 ge 1D 3 14D 8 BBC Ha IRPC, (R11) ,600$ : Branch if not t .IRPC 
C SA 91 131 510$: CMPB- Ri K/,/ [1S IT A COMMA? 
14 13 0154 290 BEQL 6008 SIF EQL YES--DONE 
0 SA 91 136 91 CMPB  =—s_- R10, #CR :NO=-END OF LINE? 
OF 13 015 36 BEQL ©: 6008 [IF EQL YES 
29 SA 91 0158 29 CMPB  =s«R10,, #*A/)/ RIGHT PARENS? 
04 if O15 94 BNEQ 5208 N 
06 68 21 EO 016 95 BBS #FLGSV -LEXOP (R11) ,600$ YESS=THAT 1S TERMINATION IF LEXICAL OPERATO 
0 €1 0164 296 5208: BBC #CHRSV"SPA SK NO=-KEEP GOING UNLESS A SPACE 
C9 0000'CA 0166 7 ws MACSKB. CASK. KFAB(RI0). sbos 
016A 99 : ALL DONE (REALLY) 
5c oS O16A 01 600$: TSTL ARI :WAS LINE TOO LONG? 
08 18 016C 0¢ GEQ  605$ [IF GEQ NO 
8195 0 te ERR arereohone : Yes--get error code 
FEBA' 30 17 04 BSB MACSERRORLN SISSUE ERROR TO PASS 2 
FE87' 30 0176 305 605$: BeBu MA SEKIPSP :SKIP SPACES 
2c SA 91 0179 306 CMPB —s«R}10, #*A/,/ ‘1S IT A COMMA? 
14 1 17¢ «= 307 BNEQ 610$ t1F NEQ NO 
1068 17 #&€ ve 08 BBS #FLGSV_IFSTAT, (R11) 6108; YES--BRANCH | IF AN IF STATEMENT 
OC 68 @1 0 01 9 BBS #FLGSV"LEXOP, (R11),610$ :OR IS THIS A LEXICAL OPERATOR? 
FE77° 30 0186 10 BSBW MACSGETCHR ;NO=-GET NEXT CHARACTER 
FE74" 30 9 1 BSBW MACSSKIPSP ‘SKIP SPACES 
018C 13 ARG_FOLLOWS: Note presence of trailing comma. 
06 68 2D «E2 018C 314 BBSS a LGSV. MOREARG, (R11), 615$ 
04 11 019 15 BRB 
19 1 6108: 
19 17 ARG_SCAN_DONE: ; Clear trailing comma flag. 
00 68 20 ES 19 18 #FLGSV MOREARG, (R11) ,615$ 
50 58 00000000'SF ¢ 196 319 615$: SUBL3 #MACSAB_T R8,RO. | ;FIGURE LENGTH OF ARG 
11C0 8F BA 19 0 POPR #*M<R6, Rye RB URtBs’ [SAVE REGISTERS 
5 OIA 1 RSB 
1A : 
1A .DISABLE LSB 
O1A 4 .END 
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1984 $396: X/VMS Ma 
Symbol table 1984 01:47: ACRO.SRCJARGSCN.MAR; 1 (5) 
ARGSK_SIZE = 000003E8 FLGSM_OPNDCHK = 10 FLGSV_SEQFIL = 19 
ARG_FOLLOW 18C R 0% FLGSM_OPRND s 8 FLGSV_SKAN s of 
ARG_SCAN_DONE 192 R 4 FLGSM_OPTVFLIDX= FLGSV_SPECOP = 2 
cai Seen Hteeepes = Yaabe FEESY-eTOMM = Hagg00is 
CHRSM_C = 5 FLGSM_RPTIRP = LOSy~SYMZCOL = 2A 
EHRSMCNUNZGER = 0000001 FLESMCSRAN© = 900080 Lesv-UPAFLe = 00000024 
CHRSM_SPA_MSK = 9} FLGSM_SPECOP = 004 FLGSV_UPDFIL = 3 
CHRSM_SYM_CH1 = 8 FLGSM_SPLALL = 04000000 FLGSV_UPMARG = 8 3 6 
CHRSM_SYM_CHR = 00 4 FLGSM_STOIMF = 400 FLGSV_XCRF = 1F 
EMSTHEOMMA,CR = 20099808 Heeen-voeece™ = Hogeos MiBKEN = S0uuaReR 

= 
CHRSV-CVTLWE = =_: 00000061 FLGSM_UPAFLG = 0000001 INP$K_BUFSIZ = QOQQ03E8 
CHRSV_ILL_CHR = 00000006 FLGSM_UPDFIL = 0000008 INTSK_BUFSIZ = QOQ013F4 
CHREV-NUM-BER = 00000006 FLeSMcKCRE © = 80000000 USTSK-BUFSIY = 00000086 
CHRSV_SPA_MSK = sis is 44 FLGSV_ALLCHR = 00000000 LSTSK_L_P_PAGE = ait 
CHRSV_SYM_CH1 = 0000000 FLG$V_BOL = Dopo oo Te LSTS$K_TITCE_SIZ= 444043 
CHRSV_SYM_CHR = 00000002 FLGSV_CHKLPND = 00000014 MAB$B_ARGNO 0000005 
eames icici HEERV-EonTe™™™ = 899986 masse-bucéiz 3998008 
= 

FF = 0000000C FLGS$V_CRF = seis dh MABSL_DVPTR 00000008 
FLesmcBOL = 90000002 FLESV-DATRET. = 00000004 RABSUDVLEN 90000006 
FL OSMUCHELPND . 90190000 FLESV-DBGOUT = §000002E $AB_ aereeere = §=6X 8604 
FLESMZCONT. = 00000008 FLESV-ENDMEH” = 00000005 NACSAB-IMBEUE) oo Seeeeee x Oe 
FLGSATCRE . 40000000 FLOSV~EVALEXPR = 00000006 MACSCVT_LOWER aeeeenee YX 04 
FLGSM_CRSEEN = 00000001 FLG$V_EXPOPT = 00000007 MACSDEC-OUT_L2X seeeeeee =X 04 
FLEEA-BoeaUT = 89952809 HEERV-Eetoon = GOB8883? micgernawe™ = iessesee og 
FLESATDL IMSTR . 90008 FLESV-FIRSTUN = 00000029 MAC$GK_ZER eeeeeene =X 04 
FLGSM_ENDMCH = FLG$V_IFSTAT = 00000017 MACSGL_KEYMAC aeeeeeee =X 04 
FLGSM_EVALEXPR = FLGSV_IIF = 00000016 MACSGL_KEYPTR aeeeeere =X 04 
FLGSM_EXPOPT = FLGSV_INSERT = §0009008 MACSGL-LINEPT aeeeeeee =X 04 
FLGSM_EXTERR = FLG$V_IRPC = 0000001D MACSK_SPLARG = 00000003 
FLGSM_EXTWRN == FLG$V_LEXOP e sit d RACSAAC ARG_SCN 00000000 a gs 
FLOSMTIFSTAT. . FLGSV-RACOCOL = 00 $0028 MACSSRCUSRSYMTB steeeeee =X 04 
FLGSM_IIF z FLGSV_MACL = $600008 MACSSRC_LIST eeneenee X 04 
FLGSM_INSERT = FLGSV-MACLTB) = $90000%6 MACSSYMSCNUP aeneeeee = X 04 
FLGSM_IRPC z FLGSV_MACTXT = 00000010 MACS_ARGTOOLONG= 00709012 
FLGSM_LEX ry FLGSV_MEBLST = S 000C MACS_UNTERMARG = BOD R GA 
FLGSM_LSTXST = FLGSV-MOREARG = 00 8 SuBS = 00000 p 
FLGSM_MAC2COL = FLGSV_MOREINP = 000000 JA 000001 
FLGSM_MACL = FLGSV-NEWPND = A $8- $ S8008 
FLGSM_MACLTB) == FLGS$V_NOREF = 3 18 MNBSK_BLKSIZ 0001 
FLGSM_MACTXT = FLGSV-NTYPEPC = ¢ SL-AR 9 1 
FLGSM_MEBLST = FLGSV-NULCHR = 0 MNBSL_CRSYMF 1 
FLGSM_MOREARG = FLGSV_OBJXST = 4 $L=LI $ 0 
FLGSM_MOREINP = FLGSV_OPNDCHK = 3 MNBSL—PAGC F 
FLGSM_NEW s FLGSV—OPRND = D MNBSL~PAGP B 
FLGSM_NOREF = FLGSV_OPTVFLIDX= 2c SL-TXTP 5 
iLeReMuLeam® = HLeRI-Peens = SOUUODD Riese-euesiz SOUUU0HR 
FLGSM_OBJXST = FLGSV-RPTIRP = 0 00 1¢ MXBSL-LINK 0 8 
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PSC SW" FLAG 
PSC$W~OPTIONS 


MXBSL_PAGES 0 4 RDX$V_BINARY = 
OBJSK"BUFSIZ = RDXS$V-DECIMAL = 
OPFSM“LASTOPR = RDX$V“DOUBLE = 
OPFSM_OPTEXP = RDX$V-FLOAT — = 
OPFSVLASTOPR = D RDX$V-GFLOAT = 
OPFSV“OPTEXP == C RDX$V-HEX 2 
PSC$B_NAME RDX$V“HFLOAT = 
PSC$B~SEG 0 C RDX$V-OCTAL == 1 
“UNUSED 0 PC = F 
PSC$K-BLKSIZ 01 SEMI = 00 B 
CS$K"NO_OPTNS = OA STBSK_PG_MISS = 00 0A 
PSC$L~CURLOC oF SYMSB_NAME 
“LINK Q SYMSB_SEG 90¢ 
PSC$L_MAXLGTH 0 SYM$B~ TOKEN 0008 
“ABS = FFFFFFF? SYMSK~BLKS1Z 0000000 
PSCSM_ALIGNFLG = 90094000 SYMSK~MAXLEN 900001 
PSCSM-ALLOPTNS = QOOO03FF SYMSK-TWOCOL = 00000010 
PSCSM_BYTE = 00004000 SYMSL—LINK 0000000 
PSCSM_CON = FFFFFFFB SYMSL~VAL 9000 05 
PSCSMDEFAULT = 000001C8 SYMSM_ABS = 00000010 
SCSM~EXE = 0000000 SYMSM_AS = 00000100 
SCSM_GBL = 00000010 SYMSM~ CRF = 90020 
PSCSM-LCL = FFFFFFEF SYMSM-DEBUG = 00000020 
PSCSM_LIB = 00000002 YMSM~DEF = 00000001 
PSCS$M_LONG = 00004800 SYMSM-DELMAC = 00000 
PSCSM-NOEXE = FFFFFFBF YMSM_EPT = 00000200 
PSCSM"NOPIC = FFFFFFFE SYMSM"EXTRN == 90000 08 
C$M~ = FFFFFF ZF SYMSM-GLOBL = 00000004 
PSCSM"NOSHR = =_—~ FFF FFFDF SYMSM-LOCAL = 00000040 
PSCSM-NOVEC = FFFFFDFF YMSM~ODBG = 00000400 
SCSMNOURT = FFFFFEFE SYMSM_REF = 00000080 
SCSM~OVR = 00000004 SYMSM-RELPSECT = 00000800 
PSCSM_PAGE = 90006400 SYMSM~SUPR = 00004000 
SCSM~PIC = 00000001 SYMSM_WEAK = 00000002 
PSCSM_QUAD = 0000400 SYMSM~XCRF = 00001000 
PSCSM_ = 00000080 SYMSV~ABS = 00000004 
PSCSM_RE = 00000008 SYMSV~ASN = 9000008 
PSCSM_SHR = 00000020 SYMSV~ CRF = 00 9000 
PSCSM_USR = FFFFFFFD SYMSV“DEBUG = = 90 005 
PSCSM_VEC = 00000200 SYMSV~DEF = 000 9000 
CSM~WOR = 490 SYMSV-DELMAC = 00000 09 
PSCSM_WRT 2 SYMSV~EPT = 0000 
PSC$S_ALIGNMENT= SYMSV"EXTRN == 
PSC$V"ALIGNFLG = SYMSV~GL = 
PSC$V~ALIGNMENT= SYMSV"LOCAL = 
PSCS$V~EXE = SYM$V~ODBG z 0A 
PSC$V~GBL = SYMSV-REF = 07 
PSC$V“LIB = SYMSV-RELPSECT = 0 0 
PSCS$V~OVR z SYMSV~SUPR = OF 
PSC$V~PIC = SYMSV~WEAK = 
SC$V~ = SYMSV"XCRF 2 0 ¢ 
PSC$V~REL = SYMSW~FLAG 
PSC$VSHR = T : 009 
PSC$V~VEC = x1 : 400 
: X2 = OOF 


<= 


N 11 


MACSARGSCN SCAN MACRO REAL/KEYWORD ARGS 
Psect synopsis 


= 
Wo 
ts 
om 
mm 
vv 
Le 
—— 
wo 
coco 
Fr 
oOo 
—™ 
so 


few ser eesceaenescce + 


! Psect synopsis ! 


teers weeceanowsces + 


PSECT name Allocation PSECT No. Attributes 


» SS « 00000000 ( -) 00 ¢ 0.) NOPIC USR CON ABS ~- LCL NOSHR NOEXE NORD 
. BLANK . 00000000 ( -) O1¢ +1.) NOPIC USR CON REL LCL NOSHR EXE R&D 
SABSS 0000001 ( 28.) ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD 
MACSRO_DATA 00000003 of 8 ( 3.) NOPIC USR CON REL  GBL NOSHR NOEXE’ RD 
MACS$RO_CODE_MAC OQOOOOOIAS ¢ 419.) 04 ¢ 4.) NOPIC USR CON REL GBL NOSHR EXE RD 
$¢acewaanenaen Rae Same ee mm f 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization % 00:00: 8.93 00:00:01.31 
Command processing 103 00: 8: 0.35 00:00:01.89 
Pass 1 186 838 : §-¢f 00: B12 -8) 
Symbol table sort 0 00:00:00.35 6 89-90 
Pass 79 8580; 0.67 0:00:03.66 
Symbol table output 23 B23 0: Bas 00:00:00.69 
Psect synopsis output 3 0:00:00.0 00:00:00.18 
Cross-reference output 0 Sb Se 00:00:00.00 
Assembler run totals 425 00:00:04.1 00:00:24.14 


The working set Limit was 1350 pages. 

22809 bytes (45 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 361 non-local and 33 local symbols. 
4 source lines were read in Pass 1, producing 17 object records in Pass 2. 

10 pages of virtual memory were used to define 9 macros. 


ene ene ese ene sree mae mee eee ee $ 


+ 
: Macro Library statistics ; 


Macro Library name Macros defined 


_$255$DUA28: [MACRO.OBJ JMACRO.MLB; 1 6 
$255SDUA28: CSYSLIBJSTARLET.MLB; 2 3 
TOTALS (all libraries) g 


418 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ARGSCN/OBJ=OBJ$:ARGSCN MSRC$:ARGSCN/UPDATE=(ENH$:ARGSCN) +LIB$:MACRO/LIB 
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NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC BYTE 

NOWRT NOVEC LONG 

NOWRT NOVEC LONG 
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